home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib03.dsk / TAPE SOFTWARE PROTECTION.bas < prev    next >
BASIC Source File  |  2023-02-26  |  366b  |  7 lines
  1. 10  GOSUB 70: POKE 1010,0: POKE 1011,3: CALL  -1169
  2. 20  ONERR  GOTO 60
  3. 30  HOME : VTAB 12: PRINT "YOU CAN'T LIST ME"
  4. 40  VTAB 14: HTAB 20: PRINT I:I = I +1: GOTO 40
  5. 60  IF  PEEK(222) = 255  THEN  CALL 768
  6. 70  FOR I = 768 TO 795: READ A: POKE I,A: NEXT : RETURN 
  7. 80  DATA  169,0,133,60,169,208,133,61,169,0,133,62,169,240,133,63,169,0,133,66,169,2,133,67,32,44,254,74